home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / GadgetArray.p < prev    next >
Encoding:
Text File  |  1994-11-28  |  4.7 KB  |  95 lines
  1. temp <- <primitive 110 5 >
  2. <primitive 112 temp 1        " moveGadgetArray:x:y: " \
  3.     #( #[ 64 160 117 81 116 33 36 11 17 119 37 39 129 1 118 \
  4.  38 50 197 81 181 247 4 67 160 241 117 242 38 52 197 \
  5.  84 181 247 6 69 160 241 117 248 5 242 70 160 241 117 \
  6.  242 37 39 129 7 162 247 66 37 39 37 39 34 192 129 \
  7.  8 37 39 35 192 129 9 131 10 242 36 81 192 116 33 \
  8.  36 11 17 119 37 39 129 11 118 38 60 197 81 181 247 \
  9.  4 67 160 241 117 242 38 61 197 84 181 247 6 69 160 \
  10.  241 117 248 5 242 70 160 241 117 242 93 242 249 73 242 \
  11.  36 241 96 243 245] \
  12.     #( #Gadget #gadgetTypeIs: 16rF #BoolGadget 16rF #StrGadget #PropGadget \
  13.       #getGadgetID: #getLeftEdge: #getTopEdge: #setStartPoint:x:y: \
  14.       #getGadgetType: 16rF 16rF  ) ) >
  15.  
  16. <primitive 112 temp 2        " registerAll:number:to: " \
  17.     #( #[ 81 116 36 34 200 247 58 33 36 11 17 117 64 160 118 \
  18.  38 37 129 1 119 39 50 197 81 181 247 4 67 160 241 \
  19.  118 242 39 52 197 84 181 247 6 69 160 241 118 248 5 \
  20.  242 70 160 241 118 242 38 37 35 130 7 242 36 81 192 \
  21.  241 116 242 249 63 242 36 241 96 243 245] \
  22.     #( #Gadget #gadgetTypeIs: 16rF #BoolGadget 16rF #StrGadget #PropGadget \
  23.       #register:for:  ) ) >
  24.  
  25. <primitive 112 temp 3        " makeGadgetArray:size: " \
  26.     #( #[ 5 30 34 176 113 64 160 118 38 33 49 11 17 50 130 \
  27.  3 242 81 115 35 34 200 247 43 68 160 116 35 34 199 \
  28.  224 9 33 35 81 192 11 17 241 117 243 224 4 53 241 \
  29.  117 243 130 6 242 36 33 35 11 17 55 130 3 242 35 \
  30.  81 192 241 115 242 249 48 242 34 241 96 243 245] \
  31.     #( #Border 'Bdr' #( 0 0 1 0 1 5 #( 0 0 20 0 20 5 20 0 0 0 ) 'NULL' ) \
  32.       #initialize:withArray: #BoolGadget 'NULL' #ifTrue:ifFlalse: \
  33.       #( #nextName #( 20 #* #index ) #( 5 #* #index ) 20 5 0 1 1 #render \
  34.       #render 'NULL' #index )  ) ) >
  35.  
  36. <primitive 112 temp 4        " writeOutGadgetArray:toFile:number: " \
  37.     #( #[ 5 42 160 118 38 128 0 242 38 34 49 130 2 242 81 \
  38.  116 36 35 200 247 212 33 36 11 17 120 67 160 119 39 \
  39.  40 129 4 117 37 53 197 81 181 247 4 70 160 241 119 \
  40.  242 37 55 197 84 181 247 6 72 160 241 119 248 5 242 \
  41.  73 160 241 119 242 38 39 40 129 10 11 49 242 38 39 \
  42.  40 129 11 11 49 242 38 39 40 129 12 11 49 242 38 \
  43.  39 40 129 13 11 49 242 38 39 40 129 14 11 49 242 \
  44.  38 39 40 129 15 11 49 242 38 39 40 129 16 11 49 \
  45.  242 38 39 40 129 17 11 49 242 38 39 40 129 18 11 \
  46.  49 242 38 39 40 129 19 11 49 242 38 39 40 129 20 \
  47.  11 49 242 38 39 40 129 21 11 49 242 37 3 22 197 \
  48.  84 181 247 7 38 39 40 129 23 11 49 242 37 3 24 \
  49.  197 83 181 247 39 38 39 40 129 25 11 49 242 38 39 \
  50.  40 129 26 11 49 242 38 39 40 129 27 11 49 242 38 \
  51.  39 40 129 28 11 49 242 38 39 40 129 29 11 49 242 \
  52.  36 81 192 241 116 242 249 217 242 36 241 96 243 245] \
  53.     #( #stringMode 'w' #open:for: #Gadget #gadgetTypeIs: 16rF #BoolGadget \
  54.       16rF #StrGadget #PropGadget #getNextGadgetName: #getLeftEdge: \
  55.       #getTopEdge: #getWidth: #getHeight: #getFlags: #getActivation: \
  56.       #getGadgetType: #getRenderName: #getSelectName: #getITextName: \
  57.       #getGadgetID: 16rF #getBufferSize: 16rF #getPropFlags: #getHPot: \
  58.       #getVPot: #getHBody: #getVBody:  ) ) >
  59.  
  60. <primitive 112 temp 5        " readInGadgetArray:fromFile:number: " \
  61.     #( #[ 5 42 160 126 46 128 0 242 46 34 49 130 2 242 81 \
  62.  116 36 35 200 247 248 33 36 11 17 127 46 10 36 119 \
  63.  46 10 36 128 3 120 46 10 36 128 3 121 46 10 36 \
  64.  128 3 122 46 10 36 128 3 123 46 10 36 128 3 124 \
  65.  46 10 36 128 3 125 46 10 36 128 3 118 38 52 197 \
  66.  84 181 247 4 69 160 241 117 242 38 54 197 83 181 247 \
  67.  6 71 160 241 117 248 5 242 72 160 241 117 242 37 47 \
  68.  39 130 9 242 37 47 40 130 10 242 37 47 41 130 11 \
  69.  242 37 47 42 130 12 242 37 47 43 130 13 242 37 47 \
  70.  44 130 14 242 37 47 45 130 15 242 37 47 38 130 16 \
  71.  242 37 47 46 10 36 130 17 242 37 47 46 10 36 130 \
  72.  18 242 37 47 46 10 36 130 19 242 37 47 46 10 36 \
  73.  128 3 130 20 242 38 3 21 197 84 181 247 9 37 47 \
  74.  46 10 36 128 3 130 22 242 38 3 23 197 83 181 247 \
  75.  49 46 10 36 128 3 7 16 46 10 36 128 3 7 17 \
  76.  46 10 36 128 3 7 18 46 10 36 128 3 7 19 46 \
  77.  10 36 128 3 7 20 37 47 2 16 2 17 2 18 2 \
  78.  19 2 20 134 24 242 36 81 192 241 116 242 249 253 242 \
  79.  36 241 96 243 245] \
  80.     #( #stringMode 'r' #open:for: #asInteger 16rF #StrGadget 16rF \
  81.       #PropGadget #BoolGadget #setNextGadgetName:to: #setLeftEdge:to: \
  82.       #setTopEdge:to: #setWidth:to: #setHeight:to: #setFlags:to: \
  83.       #setActivation:to: #setGadgetType:to: #setRenderName:to: \
  84.       #setSelectName:to: #setITextName:to: #setGadgetID:to: 16rF \
  85.       #changeBufferSize:toSize: 16rF \
  86.       #setProps:flags:hPot:vPot:hBody:vBody:  ) ) >
  87.  
  88. <primitive 98 #GadgetArray \
  89.     <primitive 97 #GadgetArray #Array #Intuition/GadgetArray.st \
  90.     #(  #numGadgets ) \
  91.     #( #moveGadgetArray:x:y: #registerAll:number:to: #makeGadgetArray:size: \
  92.       #writeOutGadgetArray:toFile:number: #readInGadgetArray:fromFile:number: ) \
  93.     temp 21 37 > >
  94.  
  95.